* lisp/calculator.el (calculator-funcall): Fix typo in last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d5ec0afb7c762cd0c9fcf720e4224cd67487a834..6e6292ae2c04cac918792139bda4aabf9e2c37c3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-09-03  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * calculator.el (calculator-funcall): Fix typo in last change.
+
        * vc/vc-git.el (vc-git-checkin): Make it possible to commit a merge.
 
        * emacs-lisp/package.el (package-activate-1): Don't let a missing

diff --git a/lisp/calculator.el b/lisp/calculator.el
index c988b7e10884e6ade29df83b49fc6fe548bb7789..c4611c12d87e6b593099d1cae3507b4781a4363e 100644 (file)
--- a/lisp/calculator.el
+++ b/lisp/calculator.el
@@ -1287,7 +1287,7 @@ arguments."
                     ((symbol-function 'D)
                      (lambda (x) (if calculator-deg (/ (* x 180) float-pi) x))))
             (eval f `((X . ,X)
-                      (Y . ,X)
+                      (Y . ,Y)
                       (TX . ,TX)
                       (TY . ,TY)
                       (DX . ,DX)